home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Data 2002 May / CD Rom Data Mayıs 2002.iso / Freeware / Blitz Basic / data1.cab / Support / help / samples / simple_graphics.bb < prev    next >
Encoding:
Text File  |  2002-04-10  |  310 b   |  19 lines
  1. ;simple graphics example
  2. ; Verified 1.48 4/18/2001
  3. ;
  4. ;hit ESC to exit
  5.  
  6. ;go into graphics mode
  7. Graphics 640,480
  8.  
  9. ;keep looping until ESC hit
  10. While Not KeyDown(1)
  11.  
  12.     ;set a random color
  13.     Color Rnd(255),Rnd(255),Rnd(255)
  14.     
  15.     ;draw a random rectangle
  16.     Rect Rnd(640),Rnd(480),Rnd(32),Rnd(32)
  17.     
  18. Wend
  19.